home *** CD-ROM | disk | FTP | other *** search
/ DigitalVision: Beauty / DigitalVision: Beauty - Disc 1.iso / pc / data / aboutus.dxr / Internal_21_open acrobat.ls < prev    next >
Encoding:
Text File  |  2001-10-29  |  933 b   |  25 lines
  1. on mouseDown me
  2.   baRegister("digitalvision", 3766816)
  3.   if the platform contains "win" then
  4.     Ok = baOpenFile(getRootPath() & "license.pdf", "normal")
  5.     if Ok < 32 then
  6.       alert("You need Acrobat installed on your system to view this file.")
  7.       acrobatPath = getRootPath() & "Utilities\Adobe Acrobat\Adobe Acrobat Installer pc\ar405eng.exe"
  8.       retVal = baRunProgram(acrobatPath, "maximised", 0)
  9.       if retVal < 32 then
  10.         alert("Unable to install Acrobat")
  11.       end if
  12.     end if
  13.   else
  14.     Ok = baOpenFile(getRootPath() & "license.pdf", EMPTY)
  15.     if Ok < 32 then
  16.       alert("You need Acrobat installed on your system to view this file.")
  17.       acrobatPath = getRootPath() & "Utilities:Adobe Acrobat:Adobe Acrobat Installer mac:Reader Installer"
  18.       retVal = baRunProgram(acrobatPath, "maximised", 0)
  19.       if retVal < 32 then
  20.         alert("Unable to install Acrobat")
  21.       end if
  22.     end if
  23.   end if
  24. end
  25.